#!/usr/bin/env perl6

use v6;

use lib 'lib';

use Linux::Fuser;

multi sub MAIN(Bool :$u = False) {
	my $progname = $*PROGRAM_NAME.IO.basename;
	note "$progname: USAGE: $progname [-u] <filename> [<filename> ..]";
	exit(1);
}

multi sub MAIN(Bool :$u = False, *@files) {
   my $fuser = Linux::Fuser.new();

   for @files  -> $file {
      for $fuser.fuser($file) -> $proc {
         print $proc.pid, $u ?? '(' ~ $proc.user ~ ')' !! '', "\t";
      }
      say '';
   }
}
