What are you trying to do? I can't tell from your example code. If you're trying to pass a filehandle to a subroutine, do this:

somefunc( *FH );

sub somefunc {
    my $fh = shift;
    # use it like a normal filehandle
}
[download]

If you're trying to read the files from a directory handle, you don't want the diamond operator, you're looking for readdir.

opendir SOMEDIR, $directory or die "Can't open $directory: $!";

while ( defined ( my $file = readdir SOMEDIR ) ) {
    # do stuff with filename
}

closedir SOMEDIR;
[download]

Cheers,
Ovid

Vote for paco!

Join the Perlmonks Setiathome Group or just click on the the link and check out our stats.