@piped = <STDIN>;
print "last piped element: ".$piped[-1];

$user_input = <STDIN>;
print "user input: ".$user_input;