#!/usr/bin/perl
## --------------------------------------------------
## Return the extension of the file in argument
## 06/12/2001 by JC
## --------------------------------------------------

@fileName = split(/\./ , @ARGV[0]);

if($#fileName == 0)
{ exit;
}

print(@fileName[$#fileName]);