#!/usr/bin/perl -w 
use strict;
#set environment variables
$ENV{FOOBAR} = 10000;

#Set package level variables
package manic;
our $vroom = 10097;

#You can use Data::Dumper
package main;
use Data::Dumper;
    my $foobie = 19897;
open(H,qq|>junk.dat|) or die $!;

print H Data::Dumper->Dump([$foobie],[qw[foobie]]);
close(H);

1;