my $name = 'foo.txt'; my $cnrl_name = $name . '.ctrl'; if ( ((stat($cnrl_name))[9] > (stat($name))[9]) and ((-s($cnrl_name))>10) ) { copy $name, "dir/$name"; unlink $name, $cnrl_name; }