Select Code to Download

#!/usr/local/bin/perl
use strict;
use Carp;
...
);

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

sub remove_content_headers
{
    my $self = shift;
...
    }
    $c;
}