#!/usr/local/bin/perl
use strict;
use warnings;

my $s = "res";

$s();

sub res {
 print "hai";
}