use strict; 

package foo; 
sub bar { print "Works\n" } 

package main; 
my $var = "bar"; 
foo->$var;