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

read($file, $data, 1024);