#!/usr/bin/perl -w

use strict;
use Pack;

print "$foo\n";