#!/usr/bin/perl -s

print "value of -x: $x\n";
print "value of -name: $name\n";