read requires a filehandle, not a filename:

#!/usr/bin/perl -w

use strict;

my $file = "/etc/passwd";
my $data;

open(FILEHANDLE, "$file") || die "Can't read $file: $!\n";

print $data while(read(FILEHANDLE, $data, 1024));

close(FILEHANDLE);
[download]

[ar0n]