#!/usr/bin/perl -w just another perl hacker