#!/usr/bin/perl

use warnings;

my $last=undef;

for my $x(@ARGV)
{
	$last=$x;
}

print "$last\n";