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

sub func1{
  return 'a';
}

my $result = func1();
print "$result\n";