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

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

do $file;
