#!/usr/bin/perl
use FindBin qw($Bin);
print qq(Welcome to $Bin);