{
        no strict;
        while (my $bytesread = read($filename,$buffer,1024))
        {
           print FILE $buffer;
        }
}