What's wrong here?
    #!/usr/bin/perl -w
    use strict; 
    chdir "/tmp";
    # Open temporary file 
    open FILEHANDLE, ">tmp.$$";
    print FILEHANDLE, <STDIN>;
    close FILEHANDLE;

Copyright 2003, Bri Hatch of Onsight, Inc.

Presented at SPUG, 2003.

Presentation created using vim and MagicPoint.