#!/bin/env perl
#
my $type = "message";
for( my $i = 2005; $i <= 2100; $i++ ) {
   my $cmd = "mv mksrf_landuse_${type}${i}.nc mksrf_landuse_${type}${i}_c100121.nc";
   print "$cmd\n";
   system( $cmd );
}