du musst $fh definieren, bevor du es verwendest.
my $fh = undef;
open($fh, ...) or die $!;
print $fh;

Wenn du es erst im open-befehl definierst ist es noch nciht im Skopus des zweiten Teils deiner Anweisung. Für mich macht die da aber auch wenig Sinn. Meinst du nicht, dass anstatt des ands ein Codeblock besser wäre?

ich mag ja Filehandle für sowas.

Grüße, pktm