#!/usr/bin/perl -w

#
# displays current system processes (according to the Finder)
#

use strict;
use warnings;

use Mac::AppleScript::Glue;

my $finder = new Mac::AppleScript::Glue::Application('Finder');

my $processes = $finder->processes;

printf("%-30.30s %-48.48s\n", 'Name', 'File location');
print '-' x 80, "\n";

for my $process (@{$processes}) {

    my $file = $process->file->posix_path;
    my $name = $process->name;

    printf("%-30.30s %-48.48s\n", $name, $file);
}