Select Code to Download

#!/usr/bin/perl -wT
use strict;
...
  my $t = Time::Piece->strptime(shift,"%T") + shift;
  return $t->strftime("%T");
}

perl -MTime::Piece -le'print+(Time::Piece->strptime(pop,"%T")+pop)->st
+rftime("%T")' 1000 10:30:05