print "please paypal $100";
my $deposit = <STDIN>;
if ($deposit == 100) {
    do_work();
}