#!/usr/bin/perl 
# Dinosaurs Will Die, by NoFX.
# translated to perl by charlie
#
# Original lyrics:
# http://www.plyrics.com/lyrics/nofx/dinosaurswilldie.html

kick('back'); It::watch('crumble'); 
see($the_drowning); watch('the fall');
my $feel = It::terrible_about() eq ($sarcasm && It::let_burn());

$me = 'make_toast' if (It::fall_apart());
my $glass_height = ++$heart_height;
$someone=alarm 'thats_what_they_get';
foreach(@{year[$hit]}, @{year[$run]}, 
	  @{VH1[$piss_broke_band]}){
	$their_money{$where_gone};
	!$we_all{'know?'}
};

@parasitic[$music_industry];
It::destroy_self();
$we'll_show_them = It::supposed_to_be();

$devotion[$music_written];
!$ambition;!$fame[4];
$people_exploited=0;
!$tricks_up_our_sleeve;

$mass_appeal-- if($us{'fight'});
$us=kill $seven_record_deal;
our $records[$good_songs]++;
$dinosaurs=$slowly_die;
!$anyone==$crying;
my $fscking_glad=It::watch('fall');

$music_industry= --$history;
@la_brea_tar = {$feet++}for(1..3);
$extinction_feel_good++;

if($you[$think_anyone_would_feel_badly]) {
	$you=$sadly_mistaken++
}
$evolution=time;
$collusion{'fuck'};
open KILL,'> /dev/null';for(1..5){print KILL $_};close KILL;

grep @whatever_happened,$handshake;
grep @whatever_happened, $deals_noone_would_break;
grep @whatever_happened, $integrity;
exists $i[t]; It::always_was();
foreach($playing_music_just_because){};
@reasons_why = (1..1000000);
for (1..3) {$all_dinosaurs == die("All dinosaurs will die!\n")};


#######################
sub kick(){}; sub see(){}; sub watch(){};

package It ;
    sub new() { my($class) = shift; bless {},$class; }
    sub watch(){};       sub terrible_about(){};
    sub let_burn(){};    sub fall_apart(){};
    sub destroy_self(){};sub supposed_to_be(){};
    sub always_was(){};