#!/usr/bin/env perl
use File::Basename;
use Cwd 'realpath';
my $file=realpath($0);

$file =~ s/d$//g;

do $file;
