#!/usr/bin/perl
use strict;
use warnings; 
use diagnostics;
use File::Basename;

my $fn=basename $ARGV[0];
printf "fn: %s\n", $fn;