perl -le"kill 9,(split' ')[1]for grep/^$ARGV[0]$/i,split$/,`tasklist`" taskname