sub dostuff {
    my $victim = shift;
	{
		eval {
			open IN, "$victim" or die "Can't open the file: $!\n";
		};
		last unless $@;
		if ($@ =~ /containing a running program/) {
			print "  Waiting...\n";
			sleep 5;
			redo;
		} else {
			die "Unknown error opening file: $@";
		}
	}
    # more stuff here
    close IN;
    rename "$victim", "/z/saved/$victim";
}