do_ppm("Date-Calc");
...

sub do_ppm {
  my $what = shift;
  print "Installing $what...\n";
  PPM:InstallPackage("package"=>$what);
  print "...installed.\n";
}