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

my $s = \&res;

$s->();

sub res {
 print "hai";
}