#!/usr/bin/perl -w
use strict;

my $V1 = "1.2.3";

{
  package foo;
  use strict;
  sub fetchvar { 
    print $main::V1;
    print $main::V2; 
  }
}

my $V2 = "3.2.1";

foo::fetchvar();