brian d foy briandfoy

I asked ChatGPT 4.5 to give me the list of the all the videos show on MTV on its first day (August 1, 1981). I wanted ChatGPT to give me the YouTube links, but it gave up after one video. I did not check this list for truth.

There's a YouTube playlist:

The Beacon Journal had Here's the complete list of MTV’s first 100 videos aired on Aug. 1, 1981. ChatGPT gave up after 77 entries in the JSON I asked it to create, which is also in this gist.
A YouTube playlist has 87 songs
IMDB's list

	#!/bin/sh

	USER=${GITHUB_USER}
	FROM=$(date -u +"%Y-01-01T00:00:00Z")
	TO=$(date -u +"%Y-%m-%dT%H:%M:%SZ")

	gh api graphql -f query='
	query($login:String!,$from:DateTime!,$to:DateTime!){
	user(login:$login){
	contributionsCollection(from:$from,to:$to){

	#!perl
	use v5.40;

	use Mojolicious::Lite;
	use Mojo::Server::Daemon;
	use Mojo::UserAgent;

	my $port = 3000;

	my $pid = fork;

	#!/usr/bin/perl

	{
	package Parent;
	sub bar { print "Parent: $_[0]" . "\n" }
	}

	{
	package Foo;
	use parent qw(Parent);

	use v5.26;
	use open qw(:std :utf8);

	use Mojo::JSON qw(decode_json);
	use Mojo::UserAgent;
	use Mojo::Util qw(dumper);

	# See another gist to create JSON https://gist.github.com/briandfoy/656a8986e2d998122e37486df1f1f999
	@ARGV = '/Users/brian/Desktop/net-ssh-perl-rt.json';
	my $raw = Mojo::File->new($ARGV[0])->slurp;

	use v5.26;
	use warnings;

	=encoding utf8

	=head1 NAME

	rt_cpan_org_export - grab the tickets for an rt.cpan.org queue

	=head1 SYNOPSIS

	#!/Users/brian/bin/perl

	use v5.36;
	use open qw(:std :utf8);

	use Mojo::UserAgent;
	my $ua = Mojo::UserAgent->new;

	my( $user, $repo ) = split m\|/\|, $ARGV[0];
	my $url = $ARGV[1];

	<html>
	<head>
	<title>Selector example</title>
	</head>

	<body>

	<a href="https://stackoverflow.com/a/76537358/2766176">https://stackoverflow.com/a/76537358/2766176</a>

	<div>

	#!/usr/bin/perl

	=encoding utf8;

	=head1 NAME

	grab-gist - download all the files in a gist

	=head1 SYNOPSIS