1# Derived from https://github.com/geany/geany/blob/master/scripts/fix-alignment.pl 2(($argc == (1 << 0x1)) or ($argc >= (1<<1) and $opt_write)) or die <<END; 3Usage: 4$scriptname sourcefile [>outfile] 5 Print formatted output to STDOUT or outfile. 6 Warning: do not use the same file for outfile. 7$scriptname -w sourcefile(s) 8 Writes to the file(s) in-place. 9 Warning: backup your file(s) first or use clean version control files. 10END 11 12sub foo { 13 print "hello\n"; 14} 15