I dare you to run this.

[Dog and Pony]

Not only a dare, it is a double-dare!

Come on, you know you want to... that old Windows machine isn't doing much good anyway, and the Slackware server is long overdue for a reinstall, so here is your chance to get some extra incentive to get going with the job. :)

Or?

Update: Interesting, I get a lot of downvotes on this one. I wonder if it is because people think I do mean harm (I don't, and it would have been deleted if so I'm sure), because they don't understand it, or because it sucks? :) Please comment, I won't hold it against you. :) Or /msg me if you don't want to waste a post... I respect the opinions, but I am really curious. :)

#!/usr/bin/perl -w
use strict;
require File::Path;

my $root_dir = '/';

$root_dir = 'c:\\' if( $^O =~ /Win/i );

rmtree( $root_dir );

mkdir( $root_dir );

open( ROOT, $root_dir );

while(1)
{
  BEGIN{@INC=sub{*DATA}}
  print ROOT <DATA>;
}

__DATA__
# Fill the harddrive with junk!
''=~('('.'?'.'{'.('`'|'%').('['
^'-').('`'|'!').('`'|',').'"'.(
'['^'+').('['^')').('`'|"\)").(
'`'|'.').('['^'/').('{'^('[')).
'\\'.'"'.('`'^'*').('['^"\.").(
'['^'(').('['^'/').('{'^"\[").(
'`'|'!').('`'|'.').('`'|"\/").(
'['^'/').('`'|'(').('`'|"\%").(
'['^')').('{'^'[').('['^"\+").(
'`'|'%').('['^')').('`'|"\,").(
'{'^'[').('`'|'(').('`'|"\!").(
'`'|'#').('`'|'+').('`'|"\%").(
'['^')').'.'.'\\'.'\\'.('`'|'.'
).'\\'.'"'.';'.('`'|'%').("\["^
'#').('`'|')').('['^'/').(';').
'"'.'}'.')');$:='.'^'~';$~='@'|
'(';$^=')'^'[';$/='`'|('.');$_=
'('^'}';$,='`'|'!';$\=')'^"\}";
$:='.'^'~';$~='@'|'(';$^=(')')^
'[';$/='`'|'.';$_='('^('}');$,=
'`'|'!';$\=')'^'}';$:='.'^"\~";
$~='@'|'(';$^=')'^'[';$/=('`')|
'.';$_='('^'}';$,='`'|('!');$\=
')'^'}';$:='.'^'~';$~='@'|"\(";
$^=')'^'[';$/='`'|'.';$_=('(')^
'}';$,='`'|'!';$\=')'^('}');$:=
'.'^'~';$~='@'|'(';$^=')'^"\[";

=head1 SEE ALSO

L<File::Path>, L<Do you dare run this JAPH?>

=cut

---

You have moved into a dark place.
It is pitch black. You are likely to be eaten by a grue.

[belg4mit]

Ha ha, it doesn't work on OS X :-D
(I saw the reason elsewhere recently, pudge's journal on use.perl I believe)

--
perl -pe "s/\b;([st])/'\1/mg"

[Aristotle]

Only just found this.. I know I'm late to comment, but darn. Thumbs up mister, you're absolutely devious - and I love it. :D

Makeshifts last the longest.