try this, save it as a droplet #!perl $file = $ARGV[0]; open (INFILE, "< $file") or die ("cannot open input file: $file, Please make sure the file is on the desktop\n"); @input = <INFILE>; close INFILE; $textdone = "NULL"; $textdone=&Generic("@input"); open (OUTFILE, '>StarMax HD:Desktop Folder: output.txt') or die ("cannot open output file: output.txt\n"); print OUTFILE $textdone; close OUTFILE; #---------------------------------------------------# sub Generic { local ($text) = @_; $text = ":::::Processed::::\n" . $text; return $text; } Chip Cuntz wrote: > Hello all, > > Could anyone provide me with a snipit of MacPerl to process a file dropped > on a Perl application. I think I have seen this done here on the list, but > could not find the example. \ > > Thanx, > > Chip Cuntz > Software Engineer > > MCI Inc. > 2896/117, E3-519 > 2424 Garden of Gods > Colorado Springs, Colorado 80919 > v622.1305, 719.535.1305 > mailto:chipperc.cuntz@mci.com > > ***** Want to unsubscribe from this list? > ***** Send mail with body "unsubscribe" to mac-perl-request@iis.ee.ethz.ch ***** Want to unsubscribe from this list? ***** Send mail with body "unsubscribe" to mac-perl-request@iis.ee.ethz.ch