open(PIPE, "| ./unrar e $file");
print(PIPE, $passwd);