my @lines;
foreach my $line (<>) {
   chomp($line);
   push(@lines,$line);
}

if ($#lines<0) {
  &usage();
} else {
  #Process STDIN....
}

sub usage {
   printf "This is how to use this script....\n";
   die();
}