#!/usr/bin/perl

# copy a file

$in = "postcodes";
$out = "pc.bak";

open (IN,$in);
open (OUT,">$out");

print OUT $buffer while
        (read (IN,$buffer,65536));