I need to create a temp file. Here's my straightforward code:

my $fh = File::Temp->new();
$fh->autoflush(1);
foreach my $cmd (@_) {
    print "$cmd\n";
    print $fh "$cmd\n";
}
system "dir $fh";
[download]

When I run it, I get this:

C:>brocade.pl
supportsave -n -h 10.250.17.140 -d /incoming/50798070 -l ftp

exit

 Volume in drive C has no label.
 Volume Serial Number is 32B6-C79A

 Directory of C:\DOCUME~1\dentos\LOCALS~1\Temp

11/30/2012  05:16 PM                 0 vfmhcyNzQN
               1 File(s)              0 bytes
               0 Dir(s)     783,720,448 bytes free
[download]

Why is my file showing up with zero bytes? I've tried using flush at the end of the loop, and sleeping 10 seconds for the OS to catch up, but it keeps acting the same. Did I miss something obvious in the docs? Many thanks for any assistance.

---

---

• Are you posting in the right place? Check out Where do I post X? to know for sure.
• Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:

  <code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>

• Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
• Want more info? How to link or How to display code and escape characters are good places to start.