package PACK;
sub func {
    print "1\n";
}
package main;
$obj = bless {}, 'PACK';
$obj->func;
$str = "$obj->func;1";
eval $str or print $@;

##</code><code>##

$dbh->do("CREATE TABLE STAIP08FK (PROBKEY varchar(20),MOBPAITS varchar(15),SOLVER varchar(10),UNKNOWNS char(11),CONSTRAINTS char(11),OBJECTIVE char(11),MODEL char(16),CRITERIA char(11),ITERATIONS integer,primary key (PROBKEY) );"

##</code><code>##

$str = qq{\$dbh->do("CREATE TABLE STAIP08FK (PROBKEY varchar(20),MOBPAITS varchar(15),SOLVER varchar(10),UNKNOWNS char(11),CONSTRAINTS char(11),OBJECTIVE char(11),MODEL char(16),CRITERIA char(11),ITERATIONS integer,primary key (PROBKEY) );"};