Select Code to Download

#!/usr/bin/perl
use strict; use warnings;
...
                    return !$stat;
        };
}

my $libobj =  Third::Party::Library::Call->newObj;
$libobj->bazinate or die $libobj->GetErrorCode;