# input handle:
open my $inFile, '<' $source or die "Can't open '$source' $!";

# output handle:
open my $outFile, '>' $target or die "Can't open '$target' $!";