Select Code to Download

#!/usr/bin/perl -l

...
print "Response: ", $req;
print "=" x 60;
$trs->disconnect;