#!/usr/bin/perl

print "\n" . $ARGV[0];
sleep 40;