#!/usr/local/bin/perl -w
use strict;

my $d;
$d = shift; #this wiill work
print "$d\n"; #will print argument