Select Code to Download

#!/usr/bin/perl -w
use strict;
...
        system './arrived', $person if -x 'arrived';
    }
}

* * * * * /root/btscan.pl

#!/usr/bin/perl -w
use strict;
...
);

$msg->send;