#!perl
use strict;
use warnings;

if (eval q[
    use lib 'lib';
    use My::Custom::Setup;
    My::Custom::Setup->run();
    1;
]) {
    exit(0);
} else {
    my $err=$@;
    Win32::MsgBox($err,MB_ICONSTOP,"Error");
    die $err;
}
__END__