my $file = 'STDIN';
        to
    my $file = '-';