#!/usr/bin/perl
use strict;
use warnings;
use Cwd qw(abs_path getcwd);

print "This script is: ".abs_path($0)."\n";
print "Working dir is: ".getcwd()."\n";