Script to visualize a selected molecular geometry with molden

molecule.pl

#!/usr/bin/perl

use warnings;
use strict;
use feature "say";
use File::Temp qw/ tempfile /;

my ($fh, $filename) = tempfile();

my $mol = `xclip -o -selection primary`;

$mol =~ s/\s+$//;

my @sp = split /\n/, $mol;

if ($sp[0] !~ /^\s*\d+/) {
  say $fh scalar @sp;
  say $fh "generated from primary selection by `molecule` script";
}
say $fh $mol;

exec 'molden', $filename;