Select Code to Download

{
  package MyAgent;
...
    return( $username, $password );
  }
}

{
  package MyMech;
...
    return( $username, $password );
  }
}

  my $mech = MyMech->new();
  $mech->get( $url );
  print $mech->status, "\n";
  print $mech->success;