#!/usr/bin/perl
use strict;
use warnings 'all';

&test;

sub test
{
   my $var=1;
   print $var."\n";
}