my $basename = (split /\//, $0)[-1];