Perl脚本产生快捷方式

$dir="/usr/local/xxx"
open (OUT, ">my.desktop");
$line ="#!/usr/bin/env xdg-open\n";
print OUT $line;
$line ="[Desktop Entry]\n";
print OUT $line;
$line ="Version=1.0\n";
print OUT $line;
$line ="Type=Application\n";
print OUT $line;
$line ="Exec=$dir/startup.sh\n";
print OUT $line;
$line ="Terminal=false\n";
print OUT $line;
$line ="Name=my\n";
print OUT $line;
$line ="Icon=$dir/4.png\n";
print OUT $line;
close(OUT);