#!/usr/local/bin/perl use strict; use warnings; sub func1{ return 'a'; } my $result = func1(); print "$result\n";