System Example

The script:

  $ cat tmpcleaner

  #/usr/bin/perl -w
  #
  # Clean out the files in /tmp
  # Use '-i' so root can decide yes or no.
  use strict;
  
  chdir "/tmp" or die;
  system "rm -i *";