if ( ! $mech->success() ) {
    print( STDERR $mech->status() . "\n" );
}
else
{    
    print( STDERR "-At->" . $mech->uri() . "\n" );
}