#!/usr/bin/perl
use sctrict;
open SAVEF, ">savefile.txt";
  or die "Ошибка при открытии файла savefile.txt: $!";


close SAVEF;