#!/bin/env perl

use strict;
use File::Basename;

my $base = basename($ARGV[0]);
print "$base\n";
