use Cwd qw( realpath );
$script_fqn = realpath($0);