#!/usr/bin/perl

use String::ShellQuote;

my $cmd = 'fuser 2>/dev/null ' . shell_quote @files;
my @pids = split ' ', `$cmd`;

print "@pids\n";