#!/usr/bin/perl
use strict;
use warnings;

print STDOUT "stuff\n";
my $whatever = <STDIN>;
print "got whatever: $whatever";

exit;