It runs with warnings and strict on, and even takes a command-line parameter. For your viewing pleasure, the Perl Diamond!

      ;
     $.=
    $ARGV
   [$-*$-]
  ||6;print
 $"x(abs($_)
),$-x(($.-abs
 ($_))*(2)+1
  ),($/)for
   ((-($.)
    ..($.
     )))
      ;
[download]

-BronzeWing

The Secret to Fortune Cookies in One Line
print join("... in bed", `fortune fortunes` =~ m/^(.*)(\.|\?|\!)$/), "\n";