#!/usr/bin/perl
my $regX = qx /\.pm/ ;
printf ("type of regX=%s\n", ref(\$regX));