use strict;
use warnings;

sub foo {  print 'foo\n'; }
sub bar {  print 'bar\n'; }

my $var = 'foo';
# invoke sub foo 

__END__

##</code><code>##

# col1;col2;col3;
123456;hey hey;2008-04-14
123457;my my;2008-04-15

##</code><code>##

col1=is_int
col2=is_string
col3=is_yyyy_mm_dd_date