#!/usr/bin/perl

use strict;
use warnings;

=for comment

@ARGV==2 or die "oops";
say for @ARGV;
exit(0);

=cut

@ARGV==1 or die "Ooops";
print "$ARGV[0]\n";
exit(0);