sub subroutine {
    my $fh = shift;
    print $fh "Hello, filehandle!\n";
}