#!/usr/bin/perl
use Tk;
use strict;
my $text = 'Burma Shave !!!!! ';

my $mw = tkinit;
$mw->geometry("300x20+20+20");
$mw->overrideredirect(1);
my $label = $mw->Label(
           -textvariable=>\$text,
           -bg=>'green',
           -bd=>4,
           -relief=>'ridge'
          )->pack(-fill=>'both');

$label->bind('<ButtonRelease>',sub{$mw->destroy});
$mw->repeat(1500,[sub{chomp($text= (<DATA>))}]);

MainLoop;
__DATA__
Shaving brushes
You'll soon see 'em
On a shelf
In some museum
Burma-Shave

Listen Birds
These Signs Cost Money
So Sit A Spell
But Don't Get Funny 
Burma Shave 
 
You Can Beat 
A Mile A Minute 
But There Ain't
No Future In It!
Burma Shave

If You Drive
While You're Drunk 
Carry Your Coffin 
In Your Trunk 
Burma Shave 
 
It's Better To Burp
And Bear The Shame
Than Not To Burp
And Bear The Pain
Burma Shave

At School Crossings
Heed Instructions
Protect Our Little
Tax Deductions
Burma Shave

Her Chariot Raced
At 90 Per
They Hauled Away
What Had Ben Hur
Burma Shave

Hands on wheel
eyes on road
That's the skillful 
driver's code
Burma Shave

Grab Your Pants
Hold Onto Your Load
You're About To Take A Ride 
Down Thunder Road 
Burma Shave 
 
Following To Close 
Was A Lot Of Bunk 
Till They Pulled Him 
From Someones Trunk 
Burma Shave 
 
The Wolf Is Shaved 
So Neat And Trim 
Red Riding Hood 
Is Chasing Him 
Burma Shave 
 
Folk's Wouldn't Feel 
In So Much Danger 
If We Still Had 
The Ol' Lone Ranger
Burma Shave

The Monkey Took
One Look At Jim
And Threw The Peanuts
Back At Him
Burma Shave

College Boys!
Your Courage Muster
Shave Off That Fuzzy
Cookie Duster
Burma Shave

Guys Who Want To
Middle-aisle It
Should Never Scratch
Their Shrinking Violet
Burma Shave

Within This Vale
Of Toil And Sin
Your Head Grows Bald
But Not Your Chin
Burma Shave

Said Farmer Jones
Who's Bald On Top 
I Wish I Could 
Rotate The Crop 
Burma Shave 
 
He Saw The Train 
He Tried To Duck It 
Kicked First The Gas 
And Then The Bucket 
Burma Shave 
 
He Lit a Match 
To Check The Tank 
That's Why They Call Him
Skinless Frank
Burma Shave

Brother Speeders
Let's Rehearse 
All Together 
Good Morning, Nurse 
Burma Shave 
 
Thirty days 
Hath September 
April, June 
And the speed offender 
Burma Shave 
 
He Had The Ring 
He Had A Flat 
She Felt His Chin 
And That Was That 
Burma Shave 
 
Substitutes 
Can Let You Down 
Quicker Than 
A Strapless Gown 
Burma Shave 
 
When You're Frisky
From Drinkin Whiskey
Don't Drive 'Cause
It's Awfully Risky 
Burma Shave 
 
Car in Ditch 
Driver In Tree 
Moon Was Full 
And So Was He 
Burma Shave 
 
Diplomacy Is 
To Do And Say 
The Nastiest Things 
In The Nicest Way 
Burma Shave 
 
If You Must Sample 
Her Pucker Paint 
Better Drive 
Where Traffic Ain't
Burma Shave

Don't Lose Your Head 
To Gain A Minute 
You Need Your Head 
Your Brains Are In It 
Burma Shave 
 
A Peach Looks Good 
With Lots of Fuzz 
But Man's No Peach
And Never Was
Burma Shave

If U Don't Know 
Whose Signs These Are 
U Can't Have
Driven Very Far
Burma Shave

Ben
Met Anna
Made a Hit
Neglected Beard
Ben-anna Split
Burma Shave

What is it,
We all crave.
Wine, women and...
BURMA SHAVE

Altho insured
Remember, kiddo
They don't pay you 
They pay 
Your widow 
Burma Shave 
 
On curves ahead 
Remember, sonny 
That rabbit's foot
Didn't save 
The bunny 
Burma Shave 
 
Please don't stick
Your hand out far
It may go home
in another car
Burma Shave

My job is
Keeping faces clean
And nobody knows
De stubble
I've seen 
Burma-Shave 
 
Cautious rider 
To her 
Reckless dear 
Let's have less bull
And lots more steer
Burma-Shave

Soap
May do
For lads with fuzz
But sir, you ain't 
The kid you wuz 
Burma-Shave 

I know 
He's a wolf
Said riding hood
But Grandma dear,
He smells so good
Burma-Shave

Substitutes
Can do more harm
Than city fellers
On a farm
Burma-Shave

We can't 
Provide you 
With a date 
But we do supply 
The best darn bait 
Burma-Shave 
 
Pedro 
Walked 
Back home by golly 
His bristly chin 
Was hot-to-Molly 
Burma-Shave 
 
Leaves 
Face soft 
As woman's touch
Yet doesn't cost you 
Near as much 
Burma-Shave 
 
She put 
A bullet 
Thru his hat 
But he's had
Closer shaves than that
Burma-Shave

It gave McDonald
That needed charm
Hello Hollywood
Good-by farm
Burma-Shave

5-star Generals
Privates 1st class
Show equal rank
In the looking-glass
Burma-Shave

Why is it
When you try to pass
The guy in front
Goes twice as fast?
Burma-Shave

If Crusoe'd 
Kept his chin 
More tidy 
He might have found 
A lady Friday 
Burma-Shave 
 
The safest rule 
No ifs or buts 
Just drive 
Like every one else 
Is nuts! 
Burma-Shave 
 
These signs 
Are not 
For laughs alone 
The face they save 
May be your own 
Burma-Shave 
 
Dinah doesn't
Treat him right
But if he'd 
Shave 
Dyna-mite! 
Burma-Shave 

Many a forest 
Used to stand 
Where a 
Lighted match 
Got out of hand 
Burma-Shave 
 
If daisies 
Are your 
Favorite flower 
Keep pushin' up those
Miles-per-hour
Burma-Shave

The one who
Drives when
He's been drinking 
Depends on you 
To do his thinking 
Burma-Shave 
 
He lit a match 
To check gas tank 
That's why
They call him
Skinless frank
Burma-Shave

The midnight
Ride of Paul
For beer
Led to a warmer
Hemishpere
Burma Shave

Dim your lights
Behind a car
Let folks see
How bright you are
Burma Shave

A nut at the wheel
A peach on his right
A curve in the road
Fruit salad that night
Burma Shave

Don't take 
A curve at 
Sixty per 
We hate to lose 
A customer 
Burma-Shave 
 
The salesman 
Taught the 
Farmer's daughter
To plant
Her tu-lips
Where she otter
Burma Shave