open( my $in, '<', 'path-to-file-name' ) or  die "Can't open path-to-file-name, $!";


##</code><code>##

my $datafile;
open (OUT, ">", $datafile ) or die "Can't open $datafile for write, $!";