Select Code to Download

#!/usr/bin/perl -w
use strict;
...
  }
  print Dumper \$r1;
}

$VAR1 = \bless( {
                   'NAME' => 'A',
...
                   'START' => 47,
                   'FIN' => 49
                 }, 'Range' );