Here's one way ;-)

#! perl -w
use strict;
# your code goes here ...
[download]