#!/usr/bin/perl -w

our $money = 10000;

1;