my $a = shift || ({ print "enter in value for a:"; <STDIN>; });