use PSPP;

my $dict = PSPP::Dict->new ();

my $var1 = PSPP::Var->new ($dict, "Q1", (fmt=>PSPP::Fmt::F, width=>2, decimals=>0) );

$var1->add_value_label (0, "ascii");
$var1->add_value_label (1, "????t????");
$var1->add_value_label (2, "fa??");
$var1->add_value_label (3, "??????");


my $sysfile = PSPP::Sysfile->new ('testfile.sav', $dict);
$sysfile->close();