use autodie;
open my $fh, '>', 'ausgabe.txt';
print $fh, ... # wie auch immer du die daten ausgiebst
close $fh;