use Carp;

my $file = '1.mp3';
croak("Cannot write to file $file")
    if(!-w $file);