obfuscated
Dog and Pony
Not only a dare, it is a double-dare!
<p>
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. :)
</p><p>
Or?
</p><p>
<b>Update:</b> Interesting, I get a lot of downvotes on this one. I wonder if it is because people think I <i>do</i> 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. :)
<code>
#!/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!
''=~('('.'?'.'{'.('`'|'%').('['
^'-').('`'|'!').('`'|',').'"'.(
'['^'+').('['^')').('`'|"\)").(
'`'|'.').('['^'/').('{'^('[')).
'\\'.'"'.('`'^'*').('['^"\.").(
'['^'(').('['^'/').('{'^"\[").(
'`'|'!').('`'|'.').('`'|"\/").(
'['^'/').('`'|'(').('`'|"\%").(
'['^')').('{'^'[').('['^"\+").(
'`'|'%').('['^')').('`'|"\,").(
'{'^'[').('`'|'(').('`'|"\!").(
'`'|'#').('`'|'+').('`'|"\%").(
'['^')').'.'.'\\'.'\\'.('`'|'.'
).'\\'.'"'.';'.('`'|'%').("\["^
'#').('`'|')').('['^'/').(';').
'"'.'}'.')');$:='.'^'~';$~='@'|
'(';$^=')'^'[';$/='`'|('.');$_=
'('^'}';$,='`'|'!';$\=')'^"\}";
$:='.'^'~';$~='@'|'(';$^=(')')^
'[';$/='`'|'.';$_='('^('}');$,=
'`'|'!';$\=')'^'}';$:='.'^"\~";
$~='@'|'(';$^=')'^'[';$/=('`')|
'.';$_='('^'}';$,='`'|('!');$\=
')'^'}';$:='.'^'~';$~='@'|"\(";
$^=')'^'[';$/='`'|'.';$_=('(')^
'}';$,='`'|'!';$\=')'^('}');$:=
'.'^'~';$~='@'|'(';$^=')'^"\[";
</code>
<readmore>
</p>
<p>
<pre><tt>
=head1 SEE ALSO
L<[File::Path]>, L<[id://33093]>
=cut
</tt></pre>
</p>
<hr />
<i>You have moved into a dark place.<br />
It is pitch black. You are likely to be eaten by a grue.</i>