#!/usr/bin/perl
my $argument_1 = shift;
die "Invalid input" unless $argument_1;