Simpelt Perl spørgsmål

[Poul Møller Hansen <sslug@sslug>]

Tror jeg ihvert fald nok.

Jeg har forsøgt at lave et script, som indkomne mail bliver piped over i,
men jeg kan ikke få det at gøre, som jeg gerne vil.

Jeg vil gerne have klippet headeren af, og resten gemt i en fil.
Jeg har lavet tilsvarende i bash, uden problemer. Men nu skal jeg bruge
Perl.

Her er hvad jeg har forsøgt, men det giver kun en tom fil.

-------------------------------------------------------------
#!/usr/bin/perl
#

$filnavn = "xml$$";


open(FILE, ">>/tmp/$filnavn") or die "Can't write to $filnavn; $!\n";

while ($line = <STDIN>) {
  last if $line = "";
}

print FILE <STDIN>;
close (FILE);
-------------------------------------------------------------

Hjælp ønskes :o)

Mvh,
 Poul Møller Hansen.