sub Main {
    my $mech = ...;
    ...;
    Get_Success( $mech );
    ...;
}
sub Get_Success {
    my( $mech ) = @_;
    #prints the success result and starts a new line.
    print $mech->success();
    print "\n";
}