perl script, already sufficient