use strict;
use warnings;

use subs qw/ open /;

open();

sub open {
    print "Hello world!\n";
}