while (my $bytesread = read($filesource, my $buffer,1024)) 
{
  print OUTFILE $buffer;
}