Select Code to Download

-bash$ xsel -o | perl -w  
Name "main::d" used only once: possible typo at - line 9.
Use of uninitialized value $d in numeric comparison (<=>) at - line 9.
Use of uninitialized value $d in numeric comparison (<=>) at - line 9.
20130601 20130501 20130401

#!/usr/bin/perl

use strict;
...
    my $d = $3 . $2 . $1;
    $c <=> $d;
}