Select Code to Download

#!/usr/bin/env perl
use strict;
...
say "The record was: $record";
say "The record is $duration days old...";
say "Too old!" if $duration > 30;

Now is:         2012-06-22T01:55:10
The record was: 2012-01-12T00:00:00
The record is 162 days old...
Too old!