Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling
 
PerlMonks  

Re^3: Inline.pm and untainting

by afoken (Chancellor)
on Jul 29, 2009 at 07:45 UTC ( [id://784146] : note . print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    perl -e "printf qq[%08o %s\n],(stat($_))[2],$_ for @ARGV" C:\WINNT C:\
    +WINNT\win.ini C:\WINNT\NOTEPAD.EXE  c:\WINNT\system32\command.com c:\
    +winnt\system32\login.cmd C:\bin\uuencode.pl
    00040777 C:\WINNT
    ...
    00100777 c:\WINNT\system32\command.com
    00100777 c:\winnt\system32\login.cmd
    00100666 C:\bin\uuencode.pl