#!/usr/bin/perl

sub mysub {print "I want to see this\n"};

print "but I don't want to see this\n";

exit;  # don't want to exit either