sub process {
	my $file = $_;
...
}