Select Code to Download

my $latin2 = find_encoding("iso-8859-2");

my $enc = find_encoding("iso-8859-2")->name;

my $userAgent = LWP::USerAgent->new;

my $ua = LWP::UserAgent->new;

#!/usr/bin/perl

...
    die "Upload error: $1";
}
print "Done.";