#!/usr/bin/perl (or equivalent for your platform) use strict; use warnings;