#!/usr/bin/perl
my $input=$ARGV[0];