while (1) {
	my @files = glob "*";
	foreach my $file (@files) {
		dostuff($file);
	}
}

sub dostuff {
	my $victim = shift;
	open IN, "$victim" or die "Can't open input file $victim: $!\n";
	# more stuff here
	close IN;
	rename "$victim", "/z/saved/$victim";
}