use strict;

my $oldfile = '0001';
my $newfile = sprintf("%4.4d", $oldfile + 1);

print "New filename = $newfile\n";