#!/usr/bin/perl

use strict;
use warnings;

use FindBin qw/$Script/;

print "Hello, my basename is $Script\n";