use Encode qw/from_to/;
use GetOpt::Long;

my ($to_encoding);
GetOptions ( 'toencode=s' => \$to_encoding ); # holt die Optionen

# dein Code dazwischen

if (defined $to_encoding) {
   from_to($output, "cp850", $to_encoding);
}