#!/usr/bin/perl

# Test 2

$path = "/var/www/html/bprentice/Test/Test2/Test2.dat";

$filename = "<" . $path;
open FILE, $filename;
read (FILE, $size, 1);
read (FILE, $data, $size);
close FILE;

print "Content-type: text/plain\n";
print "Content-length: $size\n\n";
print $data;

exit(0);