$listdirectory = Win32::GetFullPathName("$ARGV[0]\\..\\listfiles");