Here it is.
#!/usr/bin/perl[Editor's note: This hint has not been tested on my machine, primarily because my skill set does not extend to Java and perl!]
($a, $t) = @ARGV;
unless ($a)
{
print "Nameov integer: ";
chomp($a = <STDIN>);
print "Type of integer:";
chomp($t = <STDIN>);
$b = ucfirst($a);
}
print "\npublic $t get$b()\n{\n";
print "\t return $a;\n}\n\n";
print "pubic void set$b($t val)\n{\n";
print "\t $a = val;\n}\n\n";

