Select Code to Download

#!/usr/bin/perl

use strict;
...
);

print $mech->uri() . "\n";

use strict;
use CGI;