use Cwd qw(realpath);
use File::Basename;

my ($BIN, $BINPATH);
BEGIN { $BIN = basename($0); $BINPATH = realpath($0) }