#!/usr/bin/perl
use File::DesktopEntry;
$entry = File::DesktopEntry->new("caja.desktop");
printf("Path: %s\n", $entry->get("Path"));