#!/usr/bin/perl
use strict;
use warnings;
use utf8;

my $inputfile;
print "\nDrag and drop a file here:\n";
chomp ($inputfile = <STDIN>);
$inputfile =~ s/^ *[\"\']?([^\"\']*)[\"\']?/$1/;
print "\nFilepath with quotes and spaces stripped: >$inputfile<\n";

print "\n--------------------------------------------\n";
print "\nTest 1: no parsing, just checking if file is found:\n";

if (-e "$inputfile") {print "\nOK, file found\n";} else {print "\nERROR: file not found\n";}


print "\n--------------------------------------------\n\nTest 2, checking if file can be opened:\n\n";

open(FILE, "<", "$inputfile") or die "Can't open file: $!";

print "OK, file opened successfully.	\n\nPress enter to quit\n";
<STDIN>;