perldoc -f link

       link OLDFILE,NEWFILE
               Creates a new filename linked to the old filename.
               Returns true for success, false otherwise.

##</code><code>##

# rm -rf directory
Could not remove directory: File exists.

##</code><code>##

#!/usr/local/bin/perl -w
$_="DO30QO00o*40DO30QO00o*40D*20QO20oDOO00DO*00DO40oD10QO10QO*10QO*00D*20Q
O10Q20D*20Q*30Q*00QO*10QO*10Q*30Q10D*20Q00QO40QO10QO20Q*30Q10QO*10QO*00D*2
0Q20oD      OO20Q*30Q*30Q*00QO00Q30D*20QO10QO00D*20oDOO20D*20XQO20oDOO20Q*
00QO4        0D*20QO10Q20D*20Q*30Q10oDO      O20QO00Q*00QO0     0Q30D*20QO
*10QO        10QO10QO*10Q40QO20Q*00oDO        O40Q*20QO*00     DOO10DOO10D
OO10D        O40DOO10D*40oDO*20QO00D*4        0DO*10o*40D     *20DO30QO*40
o*40DO      30QO00o*40DO30QO00o*40D*20        XQ*10o*30Q     20QO10QO40DO*
00DO10Q*00oO10DOO30o*40DO10Q*00oO00o20D      OO40o*40DO     10Q*00DO*30DO*
30DO*10QOO30D*20QO2      0oDOO00DO*00D*40oDO*20DOO30o2     0DOO30D*40QOO00
DO10Q*00DOO10D*40Q        O10D*40DO*10o*40DO30QO*40o*     40DO00DO00XQD00Q
20QO10QO40DO*00DO1        0Q*00oO10o40DOO30o*40DO10Q     *00oO20DOO00DOO40
o*40DO10Q*00DOO00D        OO00DO*10QOO30D*20QO20oDO     O00DO*00D*40oDO*20
DOO30o20DOO30D*40QO      O00DO10Q*0      0DOO10D*4     0QO10D*40DO*10o*40D
O30QO*40o*40DO00DO00XQD00D*20QO20Q        O40Q*00     QO00QO*10D*20D*40oDO
*20QO00D*40o*40D*20DO10QO*00oO10o*        20o*40     QO*40Q40Q*00Q*30Q10DO
*00D*20DO10QO*00DO*10QOO30D*20QO20        oDOO0     0DO*00D*20DO*00QO40oDO
O20QO00Q00DO*00DOO40DOO30DOO30DO*10      oO00o     30XoO30DO40QO10DO40o*30
D*20DO40D*20DO40DO*10DO*10D*20Q20QO10QO40D*20     DO*00DOO30DOO10DOO10o00o
*20DO*10o*40D*20QO20oDOO00DO*00D*40D*20D*40Q     OO00D*20DO10QO*00DOO10D*4
0DOO20D*40DO      O10D*40D*20D*40QOO00DO*00     o00DO*20XDO*00o*20DOO00DO1
0QO*00DO*10        DO*10DOO10D*40D*20oDO*2     0oDO*20D*40DO*10o*40DO10QO*
00DOO00DOO0        0o*40D*20QO20DO*00DO*0     0QO40oDOO20QO00Q00DO*00DOO40
DOO30DOO30D        O*10oO00o30oO30DO40QO     10DO40o*30DO40D*20DO40DO*10D*
20DO*10DO00X      Q20QO10QO40D*20DO*00D     OO30DOO10DOO10o00o*20DO*10o*40
D*20DO30QO00o*40D*20QD00DO30QO00o*40QO     20DO*00D*40oOO00oDOO20Q*30Q*30Q
*00QO00Q30D*20QO10QO00      D*20QO*10     Q40Q10D*20Q*30Q10Q20QO*10o*30D*4
0DO00DO00XDOO10D*40D*        20D*40Q     OO00DOO40o*10D*20DOO10D*40oOO30DO
O20oD40D*40DOO10D*40D        *20D*4     0QOO00DOO40o20D*20DOO10D*40oOO00oD
OO20Q*30Q*30Q*00QO00Q        30D*2     0QO10QO00D*20QO*10Q40Q10D*20QO40Q*0
0Q30Q40QO*10o*30D*40DO      *10Xo     *40DO30QO00o*40QO20DO*00D*40D*20D*20
oOO30QO00QO20QO*20QO*10o*30D*20o     DO*20DO10DOO20D*40D*20DOO10D*40D*20D*
40QOO00o20o20D*20DOO10D*40D*20D     *20oD40QO*20QO*10QO20QO*20QO*10o*30D*2
0oDO*20DO10oDO*20oDO*20D*40DO*     10Xo*40DO30QO00o*40DO30QO00o*40QO*00QO*
20oD                                                                  OO30
D*20  The falling droplets: a tale of daring, toothpics and some I/O  QO*4
0QOO                                                                  30DO
10Q30oO10DOO30o*40Q40o*30D*20DO10Q30oO20o40DOO30DOO30DOO30oO30Q30QO10QO*10
QO10D*20Q20o*30DO*00DO10Q30DO*30DO*30DO*40Q30QO10QO*10QO10XQ40DO*10o*40D*2
0Q20o*30QD00D*20QO*00QO*20oDOO30D*20QO20D*20QOO30QO20QO40Q*00QO00QO*10D*20
QO*00Q40Q*00Q20QO*10QD00D*20QO*00QO*20oDOO30D*20QO00QOO30QO20DO*00D*40oDO*
20QO00D*40DO*10QD00D*20QO*00QO*20oDOO30XD*20D*20D*20D*20D*20D*20D*20D*20D*
20D*20D*20D*20D*20D*20D*20D*20QO20oDOO00QOO30QO20D*20QO*00Q40Q*00Q20QO*10Q
D00";s{\s|T.*/O}()g;s(X){\n}g;while (s/(?=[QDOo*])(Q*)(o*)(D*)(O*)(\**)(\d
)0/chr(l($1)*100+l($2)*50+l($3)*25+l($4)*10+l($5)*5+$6)."XxX"/ex){};s{XxX}
                 {}g;eval;sub l{return length shift}