#!/usr/bin/perl

use strict;
use warnings;

# do something
print "results\n";

# do something else
print "more results\n";

system('dir');

print "done. hit return\n";
<>;