use strict;
use warnings;
use File::Basename qw/ basename /;
use File::Spec;

print "Datei: ";
chomp(my $file = <STDIN>);

exit unless length $file;

print "Zielverzeichnis: ";
chomp(my $dir = <STDIN>);

exit unless length $dir;

open my $fh, '<', $file or die "Konnte '$file' nicht öffnen: $!";
my $newfile = File::Spec->catfile($dir, basename($file));

open my $out, '>', $newfile o die "Konnte '$newfile' nicht öffnen: $!";
while (my $line = <$fh>) {
    # bearbeite $line
    print $out $line;
}
print "$newfile geschrieben\n";