open (my $file, "<", "backup.txt");