#!/usr/bin/perl -w
#
# opens the folder of the current "insertion location" in the Finder
#
use strict;
use warnings;
use Mac::AppleScript::Glue;
my $finder = new Mac::AppleScript::Glue::Application('Finder');
$finder->insertion_location->open;
#!/usr/bin/perl -w
#
# opens the folder of the current "insertion location" in the Finder
#
use strict;
use warnings;
use Mac::AppleScript::Glue;
my $finder = new Mac::AppleScript::Glue::Application('Finder');
$finder->insertion_location->open;