sub greet {
    my $name = shift;
    print "Hello, $name\n";
}

greet('dev2000');