Select Code to Download

#!/usr/bin/env perl

...
delete_earliest_snapshot(); 
take_new_snapshot();

               ####################################
...
sub snap_name_nums { 
  return $_[0] =~ m/([0-9]+)/g;
}