#!/usr/bin/perl
$path = $ARGV[0];
$nf = @fields = split (/\//, $path);
print (@fields[$nf-1]) ; 
print "\n";