root@mong:/tmp# perl reads.pl 
root@mong:/tmp# cat reads.pl 
#!/usr/bin/perl

open(zing, kek);

while(<zing>)
{
        my $char = getc zing;
        print $char;
}
close(zing);
root@mong:/tmp#