#!/usr/bin/perl use strict; use warnings; print "Creating a file with the numbers 0-9.\n"; open FILE, "+>file.txt" or die "Unable to open file: $!\n"; print FILE "0\n1\n2\n3\n4\n5\n6\n7\n8\n9\n"; close FILE or die "Unable to open file: $!\n";