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

sub func1{
  return 'a';
}

may $result = func();