my $file = "foo.txt";
my $data;

read($file, $data, 1024);

##</code><code>##

my $file = "foo.txt";
open ($fh, $file) || die "Could not open file $file\n";
my $data;

read($fh, $data, 1024);