From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: *
X-Spam-Status: No, score=1.4 required=5.0 tests=BAYES_50,INVALID_MSGID
	autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 10c949,a0b5ae1c26aae4ca
X-Google-Attributes: gid10c949,public
X-Google-Thread: f6290,a0b5ae1c26aae4ca
X-Google-Attributes: gidf6290,public
X-Google-Thread: fdb77,a0b5ae1c26aae4ca
X-Google-Attributes: gidfdb77,public
X-Google-Thread: 103376,a0b5ae1c26aae4ca
X-Google-Attributes: gid103376,public
X-Google-Thread: 10d15b,a0b5ae1c26aae4ca
X-Google-Attributes: gid10d15b,public
X-Google-Thread: 114917,a0b5ae1c26aae4ca
X-Google-Attributes: gid114917,public
X-Google-Thread: 109fba,a0b5ae1c26aae4ca
X-Google-Attributes: gid109fba,public
X-Google-Thread: 1014db,a0b5ae1c26aae4ca
X-Google-Attributes: gid1014db,public
From: josh@netoutfit.com (Josh Blackwell)
Subject: Re: Money wanted
Date: 1997/01/07
Message-ID: <josh-ya023480000701971039570001@client.news.psi.net>#1/1
X-Deja-AN: 208329180
distribution: inet
references: <32BFDC0E.79BB@solutions.mb.ca>
 <32C15269.2481304F@seahunt.imat.com> <32c1bb07.1770350@news.2sprint.net>
 <32C1ECEF.32B8@pacbell.net>
content-type: text/plain; charset=ISO-8859-1
organization: PSI Public Usenet Link
mime-version: 1.0
newsgroups: 
 comp.lang.ada,comp.lang.asm.x86,comp.lang.basic.misc,comp.lang.c,comp.lang.c++,comp.lang.clipper,comp.lang.cobol,comp.lang.java.advocacy,comp.lang.java.api,comp.lang.java.misc,comp.lang.java.programmer,comp.lang.javascript,comp.lang.pascal.borland,comp.lang.pascal.delphi.components.misc,comp.lang.pascal.delphi.databases,comp.lang.pascal.delphi.misc,comp.lang.perl.misc,comp.lang.smalltalk,comp.lang.tcl,comp.mail.eudora.ms-windows,comp.mail.sendmail,comp.multimedia,comp.music.midi,comp.object,comp.org.eff.talk,comp.os.linux.advocacy,comp.os.linux.development.apps,comp.os.linux.development.system,comp.os.linux.hardware,comp.os.linux.misc,comp.os.linux.networking,comp.os.linux.setup,comp.os.linux.x,
Date: 1997-01-07T00:00:00+00:00
List-Id: <comp.lang.ada>


In article <32C1ECEF.32B8@pacbell.net>, Dan <dan_n@pacbell.net> wrote:

> Hi;
> I  need alot of money badly; Could anyone help?
> Dan

#!/usr/bin/perl

open(BAG,">>bag") || die "Forgot to bring a bag:$!";
open(TELLER,"<bank") || print "Gimme all your money!!!";

while ($bills = <TELLER>){
   print BAG $bills;
}

close BAG;
exit;

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
j o s h  b l a c k w e l l                    josh@netoutfit.com
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  Internet Outfitters                   http://www.netoutfit.com