#!/usr/bin/perl

use File::Basename;

$filename = "/courses/09/615/L615.txt";
# the 'basename' function is provided by the File::Basename module
$basename = basename $filename;  # returns 'L615.txt'

print "Basename of this file is: $basename\n";