Select Code to Download

sub get_parents {
    my (@p, $o);    
    for (split ("/",$_[0])) {push(@p,"$o/$_");$o.="/$_"}    
    return \@p;
}

  perl -e '$p="foo/bar/rab/oof";for (split ("/",$p)) {push(@p,"$o/$_")
+;$o.="/$_"} print join("|",@p);'

print join(" ", map { sprintf "%#02x", $_ }unpack("C*",pack("L",0x1234
+5678)))