#!/usr/bin/perl
use File::Basename;
print basename($0),"\n";